home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Demos / DEMOS.ARC / -KRAZY SHOOTER (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  895b  |  29 lines
  1. 1 CLR
  2. 2 BC=4:JC=10:JV=219:SC=7:BD=5
  3. 5 DIM B(32),P(31),T(31),C(31),CH(82):LI=31
  4. 8 FORD=1TO8:READD(D):NEXT
  5. 9 CH(1)=66:CH(2)=78:CH(42)=67:CH(82)=77:CH(81)=66:CH(80)=78:CH(40)=67:CH(0)=77
  6. 10 POKE53281,0:POKE53280,BD:POKE646,SC:PRINT"[147][142]"
  7. 15 FORA=0TO39:POKE55296+A,BC:POKE56256+A,BC:POKE1024+A,160:POKE1984+A,160:NEXT
  8. 20 FORA=40TO920STEP40:POKE55296+A,BC:POKE55335+A,BC:POKE1024+A,160
  9. 25 POKE1063+A,160:NEXT
  10. 30 L=1524:POKE54272+L,JC:POKEL,JV
  11. 90 M=L
  12. 100 GOSUB400
  13. 105 D=INT(RND(1)*9):IFD=0THEN100
  14. 110 IFINT(RND(1)*2)THENGOSUB300:GOTO100
  15. 200 L=L+D(D):IFPEEK(L)=160THENL=M:GOTO100
  16. 260 POKE54272+L,JC:POKEM,32:POKEL,JV:POKE54272+M,SC
  17. 270 GOTO90
  18. 300 FORA=0TOLI:IFB(A)=0THENV=A:A=LI:NEXT:GOTO320
  19. 310 NEXT:RETURN
  20. 320 IFPEEK(L+D(D))<>32THENRETURN
  21. 330 P(V)=D(D):T(V)=L+D(D):C(V)=CH(D(D)+41):B(V)=1:POKET(V),C(V):RETURN
  22. 400 A=0
  23. 405 IFB(A)THENGOSUB420
  24. 410 A=A+1:IFA=LI+1THENRETURN
  25. 415 GOTO405
  26. 420 IFPEEK(T(A)+P(A))=160THENPOKET(A),32:B(A)=0:RETURN
  27. 430 POKET(A),32:T(A)=T(A)+P(A):POKET(A),C(A):RETURN
  28. 60000 DATA -41,-40,-39,-1,1,39,40,41
  29.